home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 September & October / Amiga-CD 1996 #9-10.iso / demos / storm-c / stormc / steuerung < prev    next >
AmigaDOS Script File  |  1996-07-22  |  3KB  |  149 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "assign"
  14.     set vassign 1
  15. endif
  16. if "[param]" EQ "unassign"
  17.     set vunassign 1
  18. endif
  19. if "[param]" EQ "start"
  20.     set vassign 1
  21.     set vstart 1
  22.     set vunassign 1
  23. endif
  24. if "[param]" EQ "install"
  25.     set vinstall 1
  26. endif
  27. set binfo        1
  28. set bcopy        1
  29. set bassign      1
  30. set bunassign    1
  31. set binstall     1
  32.  
  33.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  34.     set nummer 0
  35.     if $binfo EQ 1
  36.          echo >>t:tmpsteuerung " Info" NOLINE
  37.          set nummer `eval $nummer + 1`
  38.          set ninfo $nummer
  39.     endif
  40.     if $bcopy EQ 1
  41.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  42.          set nummer `eval $nummer + 1`
  43.          set ncopy $nummer
  44.     endif
  45.     if $bassign EQ 1
  46.          echo >>t:tmpsteuerung " Assign" NOLINE
  47.          set nummer `eval $nummer + 1`
  48.          set nassign $nummer
  49.     endif
  50.     if $bunassign EQ 1
  51.          echo >>t:tmpsteuerung " Unassign" NOLINE
  52.          set nummer `eval $nummer + 1`
  53.          set nunassign $nummer
  54.     endif
  55.     if $bstart EQ 1
  56.          echo >>t:tmpsteuerung " Start" NOLINE
  57.          set nummer `eval $nummer + 1`
  58.          set nstart $nummer
  59.     endif
  60.     if $binstall EQ 1
  61.          echo >>t:tmpsteuerung " Installieren" NOLINE
  62.          set nummer `eval $nummer + 1`
  63.          set ninstall $nummer
  64.     endif
  65.     if "[param]" EQ ""
  66.         echo >>t:tmpsteuerung " Ende" NOLINE
  67.         execute >nil: t:tmpsteuerung
  68.         delete >nil: t:tmpsteuerung
  69.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  70.         if $reqerg[$$] EQ 0
  71.             skip Ende
  72.         endif
  73.     endif
  74.     if $reqerg[$$] EQ $ninfo
  75.         set vinfo 1
  76.     endif
  77.     if $reqerg[$$] EQ $ncopy
  78.         set vcopy 1
  79.     endif
  80.     if $reqerg[$$] EQ $nassign
  81.         set vassign 1
  82.     endif
  83.     if $reqerg[$$] EQ $nunassign
  84.         set vunassign 1
  85.     endif
  86.     if $reqerg[$$] EQ $nstart
  87.         set vassign 1
  88.         set vstart 1
  89.         set vunassign 1
  90.     endif
  91.     if $reqerg[$$] EQ $ninstall
  92.         set vinstall 1
  93.     endif
  94. endif
  95.  
  96. if $vinfo EQ 1
  97. ;>>>>>>>> Hier Infotext eintragen
  98.     :c/Metatool :Demos/Storm-C/StormC/Liesmich FT=TEXT
  99. endif
  100. if $vassign EQ 1
  101. ;>>>>>>>> Hier steht das Assign
  102.     Assign >nil: StormC: :Demos/Storm-C/StormC/
  103.     if $vstart NOT EQ 1
  104.         :c/requestchoice20 >nil: Information "Assign angelegt!" OK
  105.     endif
  106. endif
  107. if $vunassign EQ 1
  108. ;>>>>>>>> Hier steht das Unassign
  109.     Assign >nil: StormC: remove
  110.     if $vstart NOT EQ 1
  111.         :c/requestchoice20 >nil: Information "Assign entfernt!" OK
  112.     endif
  113. endif
  114. if $vcopy EQ 1
  115.     execute :c/Verzeichniskopieren ":Demos/Storm-C/StormC/" "StormC" 4697088
  116. endif
  117. if $vinstall EQ 1
  118. ;>>>>>>>> Hier Install-Skript eintragen
  119.     cd :Demos/Storm-C/StormC
  120.     assign l: :l add
  121.     :c/WBstarter >nil: ":Demos/Storm-C/StormC/Install StormC-HD-Deutsch"
  122.     assign l: :l remove
  123.     skip Ende
  124. endif
  125.  
  126. unset binfo
  127. unset vinfo
  128. unset ninfo
  129. unset bassign
  130. unset bunassign
  131. unset vassign
  132. unset vunassign
  133. unset nassign
  134. unset nunassign
  135. unset bstart
  136. unset vstart
  137. unset nstart
  138. unset binstall
  139. unset vinstall
  140. unset ninstall
  141. unset bcopy
  142. unset vcopy
  143. unset ncopy
  144. if "[param]" EQ ""
  145.     execute ":Demos/Storm-C/StormC/Steuerung"
  146. endif
  147. LAB Ende
  148. unsetenv reqerg[$$]
  149.